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DIGITAL PHENT CORPORATION, ° MAYNARD. MASSACHUSETTS. 


oOn--o- > 


® 

® 

® 

* ALL 

® 

* THIS 

* ONLY 

* INCLU f OFT ANY OTHE 

* COPIES TH HEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
. TRANSFERRED. 

* THE INFORMATION IN THIS SOFTWARE 1$ SUBJECT TO CHANGE WITHOUT NOTICE 
® 

® 

® 

7 

® 

Ld 

** 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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s++ 
; FACILITY: EXECUTIVE, BALANCE SET SWAPPER 


; ABSTRACT: 
; OSWPSCHED SELECTS 

OUTSWAP CANDIDATE TO MAKE MEMORY PAGES AVAILABLE BOTH FOR 
INSWAPPING AND MAINTENANCE OF THE DESIRED NUMBER OF FREE PAGES. 


THE LOWEST PRIORITY PROCESS SUITABLE AS AN 


; ENVIRONMENT: 
; MODE = KERNEL, RESIDENT 


$ AUTHOR: R. 1. HUSTVEDT, CREATION DATE: 14-FEB-77 
: MODIFIED BY: 

: vO3-010 ssaooz8 Sta Aug 1984 
: Reverse sieelte of "EF "ond HIB entries z OSWPSTATE. 


v03-009 wMC0009 e Cardoz 18-Jun-1984 
Write modified soak "list f limit has been set to zero. 


v03-008 wMc0008 e Cardoza 02-Mar-1984 
Check the PHDSM_ NO YUS_ CHNG flag. 


VO3-007 SSA0014 n Amway 5-Mar-1984 
Inhibit 2nd re aaa of realtime processes. 


v03-006 5540005 Stan 5-Dec-1983 
eclaim memory Loans before doing any 2nd level trimming or 
need 
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Added new category of qetonee candidates, DORMANT. These 
processes are conputey e, but are not making any progress 

(as measured by the time of the last significant event for 

the process and compared age nst a threshold determined by 

the new SYSGEN parameter DORMANTWAIT). After SUSP processes, 
DORMANT processes are the most Likely outswap candidates. 

This change solves the problem that existed when low-priority, 
COM processes would hold onto — amounts of memory because 
they were never trimmed or swapped. 


Restored use of SWAPASAP flag during Ist level trimming. 
Added SWAPASAP flag to SUSP and DORMANT state table entries. 
Deleted same from all other entries. 


Restored finer granularity in OSWPSTATE table for outswap 
candidate selection classes. 


Changed use of LONGWAIT to track change in units from 6.6 ms 

to 1 second, EXESGL_ABSTIM as the time reference, and movement 

of the WAIT IME field from a word in the PHD to a longword in 
e a 


v03-005 TCM0001 Trudy C. Matthews 31-Mar-1983 
Change references to working set fields in PHD so that 
they are used as unsigned words. 


V03-004 HRJO210 Herb Jacobs 28-F eb-1982 
Change priorities to shrink compute processes to quota 
before outswapping short waiting processes. 


V03-003 HRJO100 Herb Jacobs 29-Jun-1982 
Honor DISAWS in shrinking, and add perturbation into 
scheduler to recover low priority compute bound processes 
memory. 


V03-002 HRJ0061 Herb Jacobs 25-Mar-1982 
Rewrite again to make it table driven to allow performance 
measurement of several different scheduling alternatives. 
Remove V02-008 code, this is accomplished as a side effect 
of an unsatisfyable pages needed count. 


v03-001 HRJ0060 Herb Jacobs 20-Mar-1982 
Add interlock to prevent this code from changing WSLAST 
out of process context. 


v02-012 HRJ00S2 Herb Jacobs 08-Jan-1982 
Add syegen parameter threshold of whether using modified 
page writer should be used for gaining memory. 


v02-011 HRJO0S1 Herb Jacobs 30-Jan-1982 
Don't allow a swap candidate if the process is larger than 
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its swap slot. This gan happen if free workin sq List 
returns a resource wait condition as the result of the 
preparatory shrink. This should be short lived, and will 
fix itself on a future need 

Also detect a queue reordering as the result of ALLOCPFN 
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133 3 reporting free pages; in this case restart rather than 
118 : continue. 
0 118 : V02=010 HRJ0049 Herb Jacobs 25-Jan-1982 
18 ; Recompute of extra dynamic working set after MMGSSHRINKWS. 
000 101 ; V02=009 HRJ0044 Herb Jacobs 12-Jan-1982 
00 1 ¢ 3 Update for changed interface to MMGSSHRINKWS and add SWPFAIL 
it ! Z ; count into priority consideration for outswaps. 
000 125: V02-008 HRY0024 Herb Jacobs 29-Jul-1981 
000 ! § 3 ape Seen ability to force outswap for shortage of balance set 
; ots. 
0000 128; 
000 «61 § 3 V02-007 HRJ0020 Herb Jacobs 20-Apr-1981 
000 130 ; Major enhancement to attempt to shrink processes working sets 
4 : 1 3 to acquire memory before resulting to swapping. 
0000 138 : 06 RIHOOS9 RICHARD I, HUSTVEDT 25-FEB-1980 19:45 
4 138 5 Remove spurious modification of SWTIME. 
0000 136: 05 RIHO05S7 RICHARD I. HUSTVEDT 04-F EB-1980 10:07 
Boob \3 ; Remove use of SWPRATE. Moved to SWAPPER instead. 
0000 139; 04 R1HO036 RICHARD I. HUSTVEDT 01-NOV-1979 11:26 
0000 140 ; Change wait time measurement to use SCH$GW_IOTA, a fixed allowance 
0000 141; for voluntary waits to avoid undesired negative performance 
4 16 3 feedback. 
0000 144; 03 R1HO031 RICHARD I. HUSTVEDT 08-AUG-1979 13:17 
8008 102 : Remove inhibition on swapping for processes holding a Mutex. 
0000 147 :-- 
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; INCLUDE FILES: 


RIORITY LEVELS 


GISTERS 
EADER OFFSETS 
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OUTSWP = MACRO TO GENERATE ORDERED ACTION TABLE FOR 
NON~EXECUTABLE STATES. 
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149 
1 
1 
1 
1 
154 
5 
13, 
138 
160 
3 
188 
164 
i 
189 : 
000 189 : 
900 170 ; OUTSWP STATE,C<FLAG,FLAG,FLAG...>] 
000 1% ; WHERE: STATE = STATE NAME LESS SCHSC_ PREFIX 
000 173; FLAG = ONE OF THE SWAP SCHEDOLING FLAGS 
000 174: _V_CEF = COMMON EVENT 
09 175 : “VIDIOCNT = REQUIRE NONZERO DIOCNT 
000 176: “VZLONGWAIT = ONLY CONSIDER PROCESSES IN A LONG WAIT 
000 177: “V“SHORTWAIT= ONLY CONSIDER PROCESSES IN A SHORT WAIT 
000 178: “V-INQUAN = OBSERVE INITIAL QUANTUM, IGNORE 
000 179: OCESS IF PCB$V_INQUAN IS SET 
000 180: _V_NDIOCNT = IGNORE PROCESS “IF PCB$W_DIOCNT IS NONZERO 
000 181; “V“PRIORITY = OBSERVE PRIORITY OF POSSIBLE OUTSWAP 
000 188 ; CANDIDATE RELATIVE TO INSWAP CAND 
000 183: _V_COMPUTE = USED TO FLAG START OF COM PROCESS 
000 184: “VZSWPOGOAL = REDUCE PROCESS PAST QUOTA BEFORE SWAPPING 
000 185 ; “V“SWAPASAP = WHEN A PROCESS IN THIS STATE REAC 
000 186; SWAPPABLE SIZE, EXIT BY SWAPPING IT 
900 137 : _V_DORMANT = ONLY CONSIDER PROCESS IF IT 1S DORMANT 
000 189° -MACRO QUTSWP, STATE, FLAGS 
909 130 a pert SCHSC_*STATE 
000 198 .IRP  _ FLGS,<FLAGS> 
$0 195 “WORD TMP... 
99 196 “ENDM © OUTSWP 
0 198 > EQUATED SYMBOLS: 
199 ; 
1 _VIELD ,0,<= : DEFINE CONTROL BITS 
: tef ,- : COMMON EVENT FLAG WAIT -MUST BE BIT 0 
DIOENT,- + REQUIRE NON-ZERO DIOCNT 
4 LONGWAIT,=- : PROCESS WAIT MUST BE LONG 
5 SHORTWAIT,- : PROCESS WAIT MUST BE SHORT 
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P SC \¢ yA /VMS Macr 
RAT! 41 [SYS.SRCJOSW 
: INQUAN, = : OBSERVE INQUAN FLAG 
NDIOCNT,=- t DIOCNT MUST BE ZERO 
2 PRIORITY,- + OBSERVE PRIORITY 
COMPUTE ,- + START OF COMPUTE PROCESSES 
10 SWPOGOAL, = : DESIRED SIZE IS SWPOUTPGCNT 
0 11 SWAPASAP,= : SWAP PROCESSES IN THIS STATE FIFO 
00 1 DORMANT, : : PROCESS MUST BE DORMANT 
000 21 
0 14; 
0 15 : OWN STORAGE: 
0 1§ ; 
0000 § § 18 PSECT _ $88220, LONG 
00 1 SUPSGL_SwT IME : ; EARLIEST TIME FOR NEXT EXCHANGE SWAP 
00000000 ied ¢ =, LONG ; Used by COMPUTE scan to save state 
00000008 4 .PSECT S$OSWPSCHED,BYTE 
0000 5 OSWPSTATE: 
9000 : OUTSWP SUSP,<SWAPASAP> : SUSPENDED 
00 000 BYTE + ATTEMPT OUTSWAPS BEFORE PROCEEDING 
0004 8 OUTSWP COM,<DORMANT,COMPUTE,SWAPASAP> : DORMANT PROCESSES 
00 9007 9 .BYTE 0 : ATTEMPT OUTSWAPS BEFORE PROCEEDING 
008 0 OUTSWP HIB,<LONGWAIT, SWPOGOAL> + HIBERNATING, LONG WAIT 
0008 231 OUTSWP LEF.<NDIOCNT,LONGWAIT,SWPOGOAL> : LOCAL EVENT FLAG WAIT, LONG WAIT 
00 000E 3¢ BYTE + ATTEMPT OUT SWAPS BEFORE PROCEEDING 
OOOF 233 OUTSWP CEF,<CEF,NDIOCNT, SWPOGOAL> + COMMON EVENT FLAG WAIT 
00 0012 4 .BYTE 0 ; ATTEMPT QUTSWAPS BEFORE PROCEEDING 
991 5 OUTSWP HIB,<SHORTWAIT, SWPOGOAL> : HIBERNATING 
016 : OUTSWP LeF, * <NDIOCNT, SHORTWAIT, SWPOGOAL>; LOCAL EVENT FLAG 
00 0019 237 .BYTE : ATTEMPT OUTSWAPS BET ORE PROCEEDING 
OO1A 38 OUTSWP FPG,<PRIORITY> : FREE PAGE of IT 
1D 9 OUTSWP COLPG,<PRIORITY> : COLLIDED P AGE WAIT 
00 0020 240 .BYTE : ATTEMPT OUTSWAPS BEFORE PROCEEDING 
4 41 OUTSWP MWAIT ; MUTEX WAIT 
00 0024 4g BYTE : ATTEMPT OUTSWAPS BEFORE PROCEEDING 
0025 243 OUTSWP CEF,<CEF,DIOCNT,INQUAN,PRIORITY>; COMMON EVENT WAIT SDIOCNT N ONZERO 
0028 244 OUTSWP LEF, *<DIOCNT, INQUAN,PRIORITY> : LOCAL EVENT WAIT -DIOCNT NONZERO 
00 00 B 245 .BYTE : ATTEMPT OUTSWAPS BEFORE PROCEEDING 
02¢ 46 OUTSWP PFW,<INQUAN,PRIORITY> : PAGE FAULT WAIT 
O02F 247 OUTSWP COM.<INQUAN.COMPUTE> : COMPUTE PROCESSES 
FF 0032 248 .BYTE -1 : END OF TABLE 
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OUT SWAP SCHEDULER SEP=19 SYS. SRCJO SUPSCHED. MAR; 1 
? ~SBTTL SCHSOSWPSCHED = OUT SWAP SCHEDULER 
; FUNCTIONA oeubrney crag 


On 


SCH PCHED SCANS IN LOWEST PRIORITY ORDER FOR PROCESSES THAT 
CAN USED TO ACQUIRE MEMORY FROM TO SATISFY THE DEFICIT. 
teal a dt a PROCESSES FAIL, A PROCESS WILL BE SELECTED 


H 
E 
S 
WAP 
E: 
CH 


Som =m 


NC 
S eo 
PL$_S 


; INPUT PARAMETERS: 
; 4 WPSGB_ISWPRI = PRIORITY OF INSWAP PROCESS 
FP = NEGATIVE NUMBER OF DESIRED PAGES 


; IMPLICIT INPUTS: 
; ALL STATE QUEUE HEADERS AND ATTACHED PROCESS CONTROL BLOCKS. 


OUTPUT PARAMETERS: 
R4 = PCB ADDRESS OF OUTSWAP CANDIDATE 


RS = PHD ADDRESS OF OUTSWAP CANDIDATE 
RO, R1,R2,R3,R6,R7,R8,RI DESTROYED 


IMPLICIT OUTPUTS: 
; SOME PROCESSES WORKING SETS ARE LIKELY TO BE SHR 
PCBSV_RES OF OUTSWAP CANDIDATE IS CLEARED AND A SUPOUT EVENT 
HAS BEEN REPORTED IF AN OUTSWAP IS TO OCCUR. 


; COMPLETION CODES: 
; NONE 

; SIDE EFFECTS: 

; NONE 


~ENABLE LSB 
80$: ADDL #4,SP 
R4 


POP CONTINUE pint OF F Ais 
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co 
54 4 90$: CLRL : GET PROCESS TO SWAP, IF 
05 RSB t RETURN TO SWAPPER PROPER 
RETRY: : USED IN CASE ALLOCPFN REORDERS QUEUES 
SE 04 CO ; ADDL  #4,SP ; POP CONTINUE ADDRESS FROM STACK AND 
96 SCHSOSWPSCHED:: : SCHEDULE OUTSWAP 
0232 30 9 BSBW MMGSMPWCHECK : WILL STARTING MPW SATISFY NEED? 
5D) ODS 9 TSTL = FP : FP CONTAINS DEFICI 
F318 «(00 9 BGEQ 90% + BRANCH IF NO MORE DEFICIT 
0000'CF 94 6 0 CLRB = W*SCHSGB_RESCAN : CLEAR RESCAN NEEDED FLAG 
0 08 : Begin Ist level trimming 
53 BOAR 9 tt MOVAB OSWPSTATE, RB ; INITIALIZE STATE SCAN AT TOP 
52 53 OD 05 10S: : RESET TO NEW SUB SECTION 
28 1 6 Bae : BRANCH IF AT END OF TABLE 
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vara SCHSOSWPSCHED = OUT SWAP SCHEDULER ety 7 Bote 1F UOYS SRCTOSUPSCHED MARS 1 ete, v4 
00F6 3 5 7 BSBW ANDIDATE : GET A CANDIDATE TO BE SHRUNK 
tS j 8 BEQL BRANCH IF NONE, TRY NEXT SUB SECTION 
58 18 AS O08 AS A 3 20$: SUBW3 PHDSW_WSLIST(RS5) ,PHDSW_ WSauoTa(RS) RB 
38 8 B 310 INCW : SIZE TO “SHIN WORKING SET TO 
01D Sp 311 BSBW HRINKWS ; RECLAIM MEMORY FROM 
4 6 1 BGEQ IF NO DEFICIT, QUIT tRIMM ING 
D1 0090" cE 0' £0 006 1 BBS S*ASCHSV REORD ,W*SCH$GB LRESCAN,RETRY I BRA ANCH IF FPG STATE CHANGE 
06 56 09 1 0068 = 314 BBC AV SWAPASAP, Rbe238 7: TF_AFULL PROCESS SWAP. 1S DESIRED 
g0ee ° 06C 15 BSBW 1008 ; AND IT IS CURRENTLY POSSIBLE, 
5359 € OO6F 1 BLBS  R9,60$ + DO IT NOW 
9€ 16 0072 317 228: JSB a(§p)+ + TRY FOR THE NEXT ONE 
DOF 1 0074 18 BNEQ 208 : BRANCH IF THERE IS ONE 
D3. 076 19 BRB $ 
0078 1 Begin 2nd level trimming and swapping 
53 85 AF 9E ie : 248 MOVAB OSWPSTATE, R3 ; RESTART STATE SCAN AT TOP 
52. 53 06 007¢ 4 25$:  MOVL R3,R2 : RESET TO NEW SUB SECTION 
85 13 O07F 5 BEQL 908 + BRANCH IF AT END 
00c5 30 0081 4 BSBW CANDIDATE : GET A CANDIDATE 10 ye SHRUNK 
Fe «8613 «(0084 «=. 327 BEQL 2 + BRANCH IF NONE, TRY NEXT SUB SECTION 
0161 30 0086 8 30$ BSBW  SWAPQUANCHK ; CHECK sWAPABILETY® AND INITIAL SUANTUM 
27 59 ~«=2=—E9 «(0089 9 BLBC H IF SHOULD N NOT SWAP IT NOW 
OF 2404 18 €0 008C 0 BBS #PCBsy DISAWS PCBSL ssh), wes NCH IF CAN'T SHRINK IT 
0B AS) =610~—so97—s«009 31 CMPB Ss #16, PCBS$B_P [= tine” process ? 
09 «1A 0095 3 BGTRU ia) yes can't ohr int | process 
58 O000'CF 00 0097 33 MOVL  W*SWPSGL_SWPPGCNT,RB : VALUE 0 SHRINK CANDIDATE T 
08 56 08 £0 009c 334 BBS #_V_SWPOGOAL,R6,3 BRANCH IF THIS IS DESIRED GOAL SIZE 
58 18 AS 08 AS AS OOAO 335 328: SuUBW3 PADSW WUSLISTORSS, PHDSW_ wSauorac (RS) 
58 86 00A6 336 INCW = RB > $12 2 SURINK WORKING SET TO 
018 30 OOA8 337 35$:  BSBW  SHRINKWS ; RECLAIM MEMORY FROM IT 
86 18 OOAB 338 BGEQ 80S RETURN WITH NO ONE TO OUTSWAP 
86 0000'CF 00° EO OOAD 9 BBS S*#SCHSV_REORD,W*SCHSGB_ RESCAN, RETRY BRANCH IF FPG STATE CHANGE 
9E 16 00B3 340 40S: JSB a(SP)+ ; TRY FOR NEXT ONE 
CF 12 0083 41 BNEQ 308 t BRANCH IF THERE IS ONE 
008F 30 0087 4g BSBW CANDIDATE : GET A CANDIDATE TO BE OUTSWAPPED 
CO 33 OOBA 343 50$ BEQL 25$ : NO ONE TO OUTSWAP 
1D 19 O0BC 344 BSBBSs«éM00$ t CHECK SWAPABILITY AND INITIAL QUANTUM 
0459 £8 OOBE 345 BLBS R9,60$ : BRANCH TO SWA P IT 
9 16 oC) 46 JSB a(§p)+ : TRY FOR NEXT ONE 
FS 1 OC 47 BRB 50$ : IS THERE ANOTHER ONE? 
524 Mite 49 60S: CLRL = R2 NULL PRIORITY INCREMENT 
00 24 a6 «4200~—=Cé*éE? 6 C7 30 BBCCI #PCBSV_RES,PCBSL_STS(R4), “708 CLEAR RESIDENT FLAG 
CC 1 70$: RPTEVT SWPOUT™ REPORT SWAPOUT EV ENT 
0000'CF O000'CF BO 0 og 38 MOVW  W*SCHSGW_SWPFAIL, W'SCHSGH_ SUPF CNT: RESET FAILURE COUNTER 
SE 04 CO 00D 5 ADDL 4#4,SP 3 ONTINUE ADDRESS OFF STACK 
05 ODA 38 RSB ; urTH’ PCB IN R4, PHD IN RS 
59 34 A6 36 AG Al at 36 100$:  ADdDW3 pcasu PPGCNT(R4) PCBSW. GF GPGCNT (RA) . jk -GET SIZE OF PROCESS 
52 a5 659—s«@zT oe] 5 CMPW PHDSW_SWAPSIZE(R DO WE HAVE ENOUGH SPACE TO SWAP IT? 
03 18 O0E5S 38 BLEQU rr6s : BRANCH iF YES 
59 04 O00E7 35 CLRL = R9 : SET FAILU 
5 00€9 60 RSB : RETURN 
OOFD 0 EA 110$ BBM SWAPQUANCHK : CHECK SWAPABILITY AND INITIAL QUANTUM 
OEE 36 
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EE 64 -DISABLE LSB 
EE 9 ~ENABLE LSB 
EE § COMPUTE: ; COMPUTE STATE SCAN 
06 56 OA €1 OQOE 6 BBC V_DORMANT,R6,5$ : Prevent DORMANT process scan 
0000" CF 83 OF 68 ist cea : if DORMANTWAIT = 0 
0004'CF 33 dO oF $3 5$: MOVL 3; Save state for scan continuation | 
51 9900" CF 9E FD 71 MOVAB eS CHSAG COROH, RI ; POINT TO LONGWORD BEYOND PRI=0 HOR 
5 71 4) 10 rg 108: MOVa =(R1),R3 ; GET QUEUE HEADER 
ef 1 1 7 BEQL 5 ; NONE, SCAN FINISHED 
54 1 D1 010 74 208: CMPL R1,R4 ; CHECK FOR EMPTY QUEUE 
F613 019A 75 BEQL 10 : YES, NEXT QUEUE (HIGHER PRIORITY) 
07 56 OA 5 10¢ 76 BBC #_V_DORMANT ,R6,30$ : Must process be DORMANT 
00F7 30 011 77 BSBW § DORMANT_CHECK — : Process must be DORMANT = Is it ? 
2A «619° «O01 ee BLSS 55$ : If LSS, terminate scan 
18 13 gi 7 BEQL 40$ ; di cal. bad cand}dete continue scan 
117 80 If GTR, good candidat 
OOOO'CF OB AG 91 O117 81 30$: CMPB PCBSB_PRI(R4) ,W*SWPSGB_ 1SVERE COMPARE WITH TNgWAP CANDIDATE 
16 19 011D é BL SS 50$ ANCH IF CAN'T SWAP 
55 6C AG DO OITF & PCBS$L_PHD(R4) RS : Be ROUTINES WANT PHD IN RS 
0123 384 ASSUME PHOSR NO WS CHNG LE 
36 AS «6440 BF O93 ot 3 ©6385 BITB HOSH _RO_OS_CHNG,PHDSW_ FLAGS(R5) ; ARE WE ALLOWED TO TOUCH IT 
05 12 0128 #386 BNEQ ; NO 
55 55 00 Q12A 87 MOVL R : SET 2Z=0 
9—E 16 O12D 388 JSB A P)+ ; RETURN WITH CANDIDATE, WE MAY CONTINUE 
54 046 AG 00 Oler 89 40S: MOVL PCBSL_SQBL(R4) ,R4 : BLINK THROUGH QUEUE 
b2.=s1 0133 30 BRB 20$ : AND CHECK FOR EMPTY 
0OOO'cF B7 0135 3 50$: DECW W*SCHSGW_SWPFCNT : COUNT A FAILURE 
18 0139 39 BGEQ 55$ ; EXIT IF NO UNDERFLOW 
OOOO'CF B84 0138 338 CLRW W*SCHSGW quagcnt ; LIMIT VALUE TO ZERO 
53 Q004'CF DO O13F 95 55$: MOVL W*SAVED 3; Restore state and continue 
06 11 gte6 396 BRB NEXTSTATE 
53 4 0146 358 60$: CLRL R3 : INDICATE aNOne FOUND, Z BIT SET, END 
05 0148 99 70$: RSB ; AND RETU 
0149 400 
0149 401 CANDIDATE: 
53 52 dO 0149 40¢ VL R2,R3 : INIT STATE SCAN AT CURRENT SUB SECTION 
014C 403 NEXTSTATE: ; TRY NEXT STATE 
014C 404 ; (MOVZBL not used so that the two 
51 D4 014C 405 CLRL R1 : conditional tests vill work correctly) 
51 83 90 O14EF 406 MOVB (R3)+,R1 : GET NEXT STATE TO TRY 
rs 2% 131 407 BEQL 08 ; BRANCH IF AT END OF STATE SUB SECTION 
F1 1 153 408 BLSS 60$ : Branch if at end of table 
56 83 3¢ 0155 409 MOVZWL (R3)+ : FETCH STATE FLAGS WORD 
92 56 07 £0 0158 410 BBS #_V_C COMPUTE R6,COMPUTE ; TRY COM IF CANT FIND | NON-EXECUTABLE 
1A 56 00 a 15¢ 411 BBC #7V"CEF,R6, 1108 : CONTINUE IF NOT CEF WAIT 
57. 0000'CF 7E 160 aig MOVAQ wW®SCH ban CEBND R? : GET ADDRESS OF LISTHEAD 
50 14 A7 DE 016 41 MOVAL CEBSL SUOFL CR?) “RO ; AND MAKE WORKING COPY 
169 414 NEXTCEB: : NEXT CEB 
E0 56 «6—E€9 «600169 = 415 BLBC R6,NEXTSTATE ; BR IF _V_CEF CLEAR 
50 —C AO DO 1 416 MOVL CEB L_WOFL (RO) .RO > FLINK FORWARD 
5 Di (01 41 CMPL RO, : CHECK FOR END OF CEB LIST 
1) 13 17 213 BEQL NEXTSTATE ; AT END IF EQL 
50 14 C0 017 41 ADDL sce BSL_WOFL,RO : POINT TO WAIT QUEUE 
OA 11 0178 420 BRE 120$ ; ELSE SCAN CEB WAIT QUEUE 


or 
| 
OSWPSCHED = SWAP SCHEDULER SEP=1984 00:40:12 VAX/VMS Macro V04-00 Page | 
Youe000 SCHSOSWPSCHED = OUT SWAP SCHEDULER "Er SEF} 7 88:4 0 SYS.SRCJOSWPSCHED.MAR; 1 . b 
50 Q000'CF41 7E O17A 421 1108: MOVAQ We CHSAG _WQHDRCR1],RO : COMPUT ADDRESS F WAIT QUEUE HDR 
98 6041 DE 180 4 ; MOVAL YCR1I-RO UNSAG Ref DeR | 
54 0400 OD 4 4 ; 120$:  MOVL veNst WOBL (RO) ,R4 t Ger? FAIL “oF QUEUE 
: 4 5 .DISABLE LSB | 
50 54 v1 01 4 5 WSCAN: CMPL  R4, RO : CHECK FOR END OF QUEUE | 
¢ \3 188 4 8 BEQL NEXTCEB ; TRY NEXT STATE OR C 
53 34 AG 6 ED «6018D C4 BLBC PCBSL_STS(R4) NOT RESIDENT, NEXT IN QUEUE 
40 A636 AG) «©B1 «(0191~—s 430 CHPW pcasw “BIOCNTCRaD PCBSW. pioLmcrs) : CHECK IT FOR ZERO 
06 13 196 431 BEQL 10S ; IF ZERO, IS THAT PERMITTED? 
48 56 FO 019 4 ; BBS # V_NDIOCNT,R6,NEXTPR : BR IF NON-ZERO NOT PERMITTED 
04 11 019 4 BRB 208" : CONTINUE IF NON-ZERO ALLOWED 
4256 01 €0 O195 434 10$: BBS #_V_DIOCNT,R6 NEXTPR : BR IF ZERO DIOCNT NOT PERMITTED 
OF 56 06 a O1A2 «435 208: = BBL #-V"PRIORITY 6, 30$ IF PRIORITY CAN BE IGNO 
QOOO'CF OB AS 91 O1A6 4 : CMPB PTBSB PRI(ROS. w*SWPSGB_ 1SvPRI COMPARE WITH INSWAP PRIORITY 
06 18 OiAC 4 BGEQ  30$ : BRANCH IF LESS IMPORTANT THAN ISUP 
0000" ¢F B5 1Ag 438 TSTW © W*SCHSGW_SWPFCNT ; CHECK FOR FAILURE COUNT EXHAUSTED 
0 14 01B2 439 BGTR  NEXTPR BRANCH IF NOT GOOD CHOICE YET 
56 OC 493 0184 440 30$: BITB #<1@_V_SHORTWAIT>!<1a_V -LONGWAIT> Rb i Check WAIT TIME? 
18 #413 «40187 441 BEQL 50$ ~ BRANCH {iF 
55 Q000'CF 3¢ 0189 rr MOVZWL W*SCHSGW_LONGWAIT,RS : Get Long weit threshold 
55 0118 C4~— «C0 OBE 44 ADDL2 PCBSL_WATTIME(R4).R5 =: RS <= wait time + delta 
55 O000'CF D1 01C3 444 CMPL W*EXESGL_ABSTIM,R5 : HOW LONG HAVE WE BEEN WAITING? 
02 56 03 €1 O1CB 445 BC #_V_SHORTWAIT,R6,40$ | : BRANCH IF NON= SHORT WAIT ALLOWED 
16 «+A gic¢ 446 BGTRU NEXTPR : BRANCH IF WAIT INTERVAL IS LONG 
02 56 08 E1 Ice 447 40$: BBC #_V_LONGWAIT,R6,50$ + BRANCH IF NON- LONG WAIT ALLOWED 
1 1F 01D 448 BLSSU  NEX ; BRANCH IF WAIT INTERVAL IS SHOR 
55 6C AG DO 01046 449 50$:  MOVL  PCBSL ),R5 + MMG ROUTINES WANT PHD IN RS, SET Z=0 
0108 450 ASSUME PUDSR tAON Ose Cite LE 255 
36 AS 40 8F 93 O1D8 451 BITB MOSH _fO_GS_ CHING. PHDSW_ FLAGS (RS) ; ARE WE ALLOWED TO TOUCH IT 
0S 12 01DD 43¢ BNEQ NE NTPR ; 
55 55 pO ODF 45 MOVL  R5,R5 ; SET 7=0 
9 16 O1F2 454 JSB a(sp)+ : RETURN SO WE CAN CONTINUE 
54 04 AS DO O1E4 455 NEXTPR: MOVL  PCBSL_SQBL(R4),R4 + BLINK THROUGH QUEUE 
=. ies 436 BRB WSCAN > AND CONTINUE SCAN 
O1EA 458 SWAPQUANCHK: ; CHECK VALIDITY OF PROCESS CHOICE 
59 4 OIEA 459 CLRL = RO SSUME B C 
18 24 446 04 £0 O1FC 460 BBS sPcasy PSWAPM, PCBSL stscha) 20$ ; BRANCH IF NOT SWAPPABLE 
1256 04 £1 O1F1 461 BBC INGUAN,R6,1 BRANCH IF INQUAN CAN BE IGNORED 
OD 24 Ad 03 Et O1FS 46¢ BBC #PCBSV INQUAN PCBS sts (Ra) 10$ H IF INQUAN SATISFIED 
OF OQOO0'CF 91 OFA 46 CMPB Ss W*SWPSGB_ISWPR ; 1s mg A wir L TIME INSWAP? 
13 1FF 96464 BLEQ 108 : BRA NCH IF SO 
0000'CF 8B 01 465 TSTW  W*SCHSGW_SWPFCNT : CHECK FOR FAILURE COUNT EXHAUSTED 
14 5 466 BGTR 208 : BRANCH IF NOT GOOD CHOICE YET | 
6 467 10$: INCL RO : SET GOOD CHOIC 
0 09 468 208: SB : RETURN WITH STATUS IN R9 | 
OA £90 DORMANT _CHECK: ; Check if candidate is DORMANT 
7E 01 cf OA 471 MNEGL #1,-(SP) : Preset terminate scan status 
55 AG 0D 47¢ MOVB PCBSB_PRI(R4),RS : Fetch priority of candidate 
55 10 91 11 +47 CMPB #16,R5 ; Real-t — process ? 
20 1A 0214 47% BGTRU 108 : BR if 
58 SOF 9900 "Ef 83 16 475 SUBB BL peee DEF PAI £51 RE ; Conver *to internal form for test | 
1 1¢ $78 CMPB R5,R 3 is fois ° low-priority job ? 

1 1F 1F 47 BLSSU >: BR ifn 
| 
| 
} 
j 


= 
WPSCHED = SWAP SCHEDULER SEP=1 74 AK/VMS Macro V04-00 Page 1 sy! 
Veen 860 SCHSOSWPSCHED = OUT SWAP SCHEDULER "978 SEP=1 1382 89: 28 if YOYS SRCTOSUPSCHED. MAR; 1 . 3) vO4 
6E 6 $28 Encl, (SP) : Set bad candidate, cons tous status 
28 see eH ‘ 47 MOVZWL W*SCHSGW ara R3 : Get dormant wait thresho 
8 118 C4 «6C an ADDL2 = PCBSL WATTING (RO) ; Has process had a sheatticenl 
58 OO00'CF D1 022d 481 CMPL W*EXESGL_ABSTIM, Ree ; event recently ? 
02. =F 8 2 te BLSSU 108 ; BR if not 
6— 06 2 INCL (SP) : Indicate that process is DORMANT 
8E D5 0236 484 10$ TSTL (SP)+ 3; Set status in condition codes 
05 0238 485 RSB 
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7 ~SBTTL SHRINK WORKING SET 

FUNCTIONAL DESCRIPTION: 
SHRINK IS USED TO MAK 
HAVE BORROWED PAGES T 
A SWAPPABLE PROCESS T 


CALLING SEQUENCE: 
BSB/JSB SHRINKWS 


INPUT PARAMETERS: 
R4 - 


OSWPSCHED = SWAP 
04-000 SHRINK 


zx 
zm 
—Oo 
2c 
or 
m 
om 
mm 
_ 


ABLE FROM oer Pon te Ene THAT 
H FAULTING RATES OR T RINK 
IZE FOR SMALLER Swaps. 


oom 


RINK PROCESS TO 
TAL PAGES WANTED BY SYSTEM 


orm 


; IMPLICIT INPUTS: 
WORKING SET LIST 


OUTPUT yr ae 
FP UPDATED 
R9 DESTROYED 


IMPLICIT OUTPUTS: 
TARGET PROCESS WORKING SET SHRUNK UP TO R8& INPUT VALUE 


COMPLETION CODES 
POSITIVE INDICATES SWAPPER REQUEST SATISFIED 


SIDE EFFECTS: 
THIS ROUTINE COULD POTENTIALLY DUMP A LOT OF TRAFFIC INTO THE 
PAGING SYSTEM, ESPECIALLY THE MODIFIED PAGE WRITER. 


Sete Se Ge Se Ge Se Ge Se Ge Ge Ge Ge Ge Ge Se Sse Se Ge Se Ge Ge Ge Ge Se Se Se Ge Ge Ge Ge Sete 


OOOCCOCOCOCOOOCOOCSCOSCOCOCSCOOOOOCOOCOOCOSO OOOO OOOOOOOOO 


POPIPIPIPOPIPYNIPYDIPYNINIPINIPINIPINYIDIPIPINPYINIPYPIPIPYPOPPIPOPIPOPIPUPPOPUNPY 


SPADA MII & BE BS BWANA NAAN AINA WWW AINI AAAI WIAA AIAIA AAA AAMAS oO 
SMO SPOIMAOO NLL NDDSH LOM OOWOOOOOOOOOVOOOOOVODOVOOODOOVOVOOOODOOOOOOOOO OF 
ROOD NA MEW $9 OD NA UE WIN $$ 9 OD NOU EWN O OO NAME WO OONOAU SE Wit" OOO 


BPP AAAI NAA NIIRIPODRIPODININIPINID 9 2 PS HS SM DOOD OOOOCOCOCOCOOOOOOOOO@Wwo 


DUP PVP LV PVP PVP VDL LUV VIP UIUPUP USIP USUSUS USSU ISTITUTO ES BB 


SHRINKWS: 
58 58 3C MOVZWL R8,RB : GET INPUT SIZE IN A LONGWORD 
59 50 AS 3¢ MOVZWL PHOSW_WSSIZE(RS) RO 3 GET CURRENT SIZ 
58 59 C SUBL3 _R9,RBTRO ; CAN wit GET ANY PAGES FROM PROCESS? 
8 18 BGEG = 3 ; BRANCH IF NO 
F BB PUSHR #*M<RO,R1.R2,R3> ; CAVE “SUAPPER QUT SWAP SCHEDULER REGS 
9 00 MOVL ; NUMBER OF PAGES TO SHRINK PROCESS BY 
0000'CF DD PUSHL W*$CHSGL_FREECNT : SAVE OLD FREE List COUNT 
0000'CF 60° 88 BISB. S*#MMGSM~ =NOLASTUPD !MAGSH. -NOWAIT Lene 6B. FREWFLGS ABLE 
Ast UPDATE AND MP List ote WALT 
FDA9" 30 BSBW MMGSSHRINKWS : USE A JWSL CODE, IPL REMAINS AT S 
0000'cF 00° BA BICB S*#MMGSM -NOLASTUPD!MMGSH_ NOWALT bUalic$eB fr REWFLGS : REENABLE. 
ASf UPDATE AND MP LIST SIZE WAIT 
FDA1" 39 BSBW  MMGSEXTRADYNWS REFACC EXTRA DYNAMIC WORKING SET 
59 0000°¢F 3 C SUBL3 (SP)+,W*SCHSGL_FREECNT, ni * CALC NUMBER OF PAGES FREED 
D ¢ ADDL R9,FP ; HAVE WE SATISFIED DEFICIT? 
‘ 1 BGEG 20 : BRANCH IF YES 
1 BSBB HNGSMPUCH HECK + WILL STARTING MPW SATISFY 
F OBA 08: POPR #*M<RO,R1,R2,R3> + RESTORE OSWPSCHED REGISTER 
D b> 0$: TSTL = FP : SET DEFICIT INDICATION 
7 RSB + RETURN 


6 2 
OSWPSCHED = SWAP SCHEDULER 16-SEP-1984 00:4 AX/VMS © v04-00 Pp 1 SY 
rae ts START MODIFIED PAGE WRITER TEST -SEP-1984 88: 23: if SYS.SR cj UPSCH ED.MAR; 1 os 8) vO 
~SBTTL START MODIFIED PAGE WRITER TEST 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE IS CALLED BY THE SWAPPER TO OPTIONALLY START THE 
MODIFIED PAGE WRITER IF IT WILL SOLVE THE CURRENT DEFICIT PROBLEM. 
; CALLING SEQUEN 
BSB/JSB 
; INPUT PARAMET 


IMPLICIT INPUTS: 

; MODIFIED PAGE WRITER VALUES 

: OUTPUT PARAMETERS: 

: FP UPDATED TO REFLECT HOW MUCH IS EXPECTED BY RUNNING MPW 


; IMPLICIT OUTPUTS: 
; MODIFY PAGE WRITER LOW THRESHOLD MAY BE SET TO START MPW 
; COMPLETION CODES: 
; NONE 
; SIDE EFFECTS: 
NONE 


ONS OD I ma nt kk kk ik kk ad tk at ot ot ot tt 8 


MMGSMPWCHECK: : 
0000'CF BS TSTW W*SCHSGL_MFYLIM : HAS LIMIT BEEN SET TO ZERO = LOW WORD 
OF 1 BNEQ ‘ NO CONTINUE WITH NORMAL CHECKS 
0000'CF oD TSTL W*SCHSGL_MFYCNT : MAKE SURE SOMETHING IS REALLY THERE 
Sat BEQL t NOTHING TO D9 
50 5D 01 (3 ASHL = #1, FP, RO : GET RID OF HIGH BIT 
03 (1 BNEQ 10s : IT WASN'T THE ‘FREE BALANCE SLOT" FLAG 
5D pg cLRL : SIGNAL THE START OF THE Mi 
0000' CF 0000" CE Di 10$: CPL W°MPWSGL_THRESH,W*SCHSGL_MFYCNT; ‘Js MPW VALID FOR GETTING MEMORY 
50 0000'CF  0000'CF 3 SUBL3 W*SCHSGL_MFYLOLIM, w*scHsaL aReyen RO; “WILL WRITING MODIFIED 
OF 1 BLEG 308 ; HELP NONE 
50 5D £0 ADDL  FP,RO 3 ae THERE 
OA BLSS 30 RIF NOT END AVOID FLUSHING LIST 
Q000'CF OO00'CF B MOVW W*SCHSGL_MFYLOLIM, W*SCHSL mFYLIRC: RESET LOWER THRESHOLD 
5D 6©50.~=COD MOVL _RO,FP INDICATE NEW DEF ieit 
0 30$:  RSB : EXIT, MPW WILL START IF NECESSARY 


>>> bP eR 6 + tree hE REDE P HEP HRESEEREEREEREEERRAAEEERERE ED, 


SOOCOCOCOOOCOCOCOCOOCOCOOCOCO COCO OOOO O OOOO OOOO OOOOOOOOOOOOOO 


RO OONOA NE WIN SO OD NAME AN 9 OD NA NEW 0 OD NOU EW OOOO 


> 
o 
oo 


l 
P 
CE: 
MMGSMPWCHE CK 
ERS: 
FP = NEGATIVE NUMBER OF TOTAL PAGES WANTED BY SYSTEM 
| 
j 


OSWPSCHED 
Symbol table 


BIT... 
CANDIDATE 
CEBSL _WOFL 
EV Pou 


MMG H 
MMGSM_NOLASTUPD 
MMGSM AIT 
MMGSSARINKWS 
MPWSGL_ THRESH 
NEXTCEB 

TPR 
NeXTSTATE 
OSWPSTATE 


P 
PCBSL_WAITIME 


PCBSV~DISAWS 


PHD$SW_FLAGS~ 
PHD$W_SWAPSIZE 
PHDSW_WSLIST 


HD 
SCHS$GW~DORMANTWAIT 


Sooooooooocoo 
oS 


19 


3 


geeeeene 
eeereeee 
eeereree 
rererenee 
00000271 
reeerenre 
gereerenre 
Rereeere 
Reeerere 


oOoooooo 


reereere 
geeeeene 


000003 
000001 


C 
3 
30000009 


geaerraere 
teecerene 
geeerene 
geeaerere 
geecerene 
grecrene 
eteererere 


z@ 
oe 
<a 


- SWAP SCHEDULER 


>< OK OE OK OK OK OK 


03 


COOCCCOCOOOCOCOOOCOO 


ooooe 
WWWroww 


4d 
wv 
5 ad 
a 
rm 

o 
” 
c 
~ 
m 


SYSS$GB_DEFPRI 
TMP... 

WOHSL _WOBL 
WSCAN 
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eeeeeeee 
geeeeene 
gereenree 
0000003¢ 
eereeene 
gererere 


geenreeee 
eereeres 


00000000 


geeeeaene 


OOCoooooooooo°oo 
OOOO OOooCOoOoOCoOoe 


DOW UN SP — NOC 


RG 
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pee oem amma a ema au > 


A Psect synopsis ! 


2eecee naboonnonnt 


PSECT name Allocation PSECT No. Attributes 
ABS . 00000000 0.) 00 ¢ OQ.) NOPIC USR CON ABS LCL oo oe NOEXE NORD NOWRT NOVEC BYTE 
00000 8 ( 0.) ( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$220 99090 Pe Se ¢{ g-) NOPIC USR CON REL LCL N OSHR EXE RD WRT NOVEC LONG 
SOSWPSCHED 00002A9 ( 681.) ( 3.) NOPIC USR CON REL LCL NOSH EXE RD WRT NOVEC BYTE 
tere eee ecce SOO RM eee meme f 
: Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 0 00:00:00.04 0:00:01. 1.34 
Command processing 120 4 4 0:00: 
Pass 216 8:8 :05.9 Ba: Be: 2:09 
Symbol table sort g 00:00:00.7 0:00:01. 
Pass 2 12 Bae g: 1.70 00:00:04.64 
Symbol table output 11 0:00: 8-08 Be +89 #88 8 
Psect synopsis output 3 00:00:00.0 00:00:00.0 
Cross-reference output 2 00:00:00.00 BR BO Re Be 
Assembler run totals 50 00:00:08.96 00:00:34.07 


The working set Limit was 1200 pages. 
33660 bytes (66 pages) of virtual memory were used to buffer ghe intermediate cede. 

There were 30 pages of symbol table space allocated to hold 456 non-local and 39 local symbols. 
592 source Lines were read in Pass 1, producing 19 object records in Pass 2. 

18 pages of virtual memory were used to define 17 macros. 


¢eeowene sneer esto es een ee eae + 
' ; Macro Library statistics H 


Macro Library name Macros defined 
Hitt SYS.OBJILIB. mB: 1 
“$255$DUA Syst IBISTARL T.MLB;2 é 
TOTALS (all Libraries) 1 


505 GETS were required to define 13 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:OSWPSCHED/OBJ=OBJ$:OSWPSCHED MSRC$:OSWPSCHED/UPDATE=(ENHS:OSWPSCHED) +EXECML$/LIB 
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